﻿
Partial Class _Default
    Inherits System.Web.UI.Page
    'Protected Sub DDLPatentes_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DDLPatentes.SelectedIndexChanged
    '    If DDLPatentes.SelectedValue = "Su Elección" Then
    '        Exit Sub
    '    End If
    '    PanelDatos.Visible = True
    '    MostrarRegistroPatente()
    '    ObtenerIdComisaria()
    '    ObtenerIdNodo()
    '    ObtenerIdUsuario()
    'End Sub

    'Protected Sub CargarDDLPatentes()
    '    Cnx = New OracleConnection(oradb)
    '    Sql = "select * from Denuncias"
    '    DDLPatentes.Items.Clear()
    '    Try
    '        Cnx.Open()
    '        Cmd = New OracleCommand(Sql, Cnx)
    '        Cmd.CommandType = Data.CommandType.Text
    '        Cmd.ExecuteNonQuery()
    '        dr = Cmd.ExecuteReader()
    '        DDLPatentes.Items.Add("Su Elección")
    '        While dr.Read()
    '            DDLPatentes.Items.Add(dr.Item("Patente"))
    '        End While
    '        DDLPatentes.SelectedIndex = 0
    '    Catch ex As Exception
    '        MsgBox(ex.Message.ToString())
    '    Finally
    '    End Try
    '    LiberarRecursos()
    'End Sub

    'Protected Sub ObtenerIdNodo()
    '    Cnx = New OracleConnection(oradb)
    '    Sql = "select * from TBL_Nodos WHERE IdNodo = '" & lblValorIdNodo_Alta.Text & "'"
    '    Try
    '        Cnx.Open()
    '        Cmd = New OracleCommand(Sql, Cnx)
    '        Cmd.CommandType = Data.CommandType.Text
    '        Cmd.ExecuteNonQuery()
    '        dr = Cmd.ExecuteReader()
    '        If dr.Read() Then
    '            lblIdNodo_Alta.Text = dr.Item("Descripcion")
    '        Else
    '            MsgBox("No puedo encontrar IdNodo en tabla TBL_Nodos" & vbCrLf, MsgBoxStyle.Critical, _
    '                   "Error proceso ObtenerIdNodo - InfoDominio.aspx")
    '            LiberarRecursos()
    '            Exit Sub
    '        End If
    '    Catch ex As Exception
    '        MsgBox("No puedo abrir tabla TBL_Nodos" & vbCrLf & ex.Message, MsgBoxStyle.Critical, _
    '               "Error proceso ObtenerIdNodo - InfoDominio.aspx")
    '    Finally
    '    End Try
    '    LiberarRecursos()

    '    Cnx = New OracleConnection(oradb)
    '    Sql = "select * from TBL_Nodos WHERE IdNodo = '" & lblValorIdNodo_Mod.Text & "'"
    '    Try
    '        Cnx.Open()
    '        Cmd = New OracleCommand(Sql, Cnx)
    '        Cmd.CommandType = Data.CommandType.Text
    '        Cmd.ExecuteNonQuery()
    '        dr = Cmd.ExecuteReader()
    '        If dr.Read() Then
    '            lblIdNodo_Mod.Text = dr.Item("Descripcion")
    '        Else
    '            MsgBox("No puedo encontrar IdNodo en tabla TBL_Nodos" & vbCrLf, MsgBoxStyle.Critical, _
    '                   "Error proceso ObtenerIdNodo - InfoDominio.aspx")
    '            LiberarRecursos()
    '            Exit Sub
    '        End If
    '    Catch ex As Exception
    '        MsgBox("No puedo abrir tabla TBL_Nodos" & vbCrLf & ex.Message, MsgBoxStyle.Critical, _
    '               "Error proceso ObtenerIdNodo - InfoDominio.aspx")
    '    Finally
    '    End Try
    '    LiberarRecursos()

    'End Sub


    'Protected Sub ObtenerIdComisaria()
    '    Cnx = New OracleConnection(oradb)
    '    Sql = "select * from Comisarias WHERE IdComisaria = '" & lblValorIdComisaria_Alta.Text & "'"
    '    Try
    '        Cnx.Open()
    '        Cmd = New OracleCommand(Sql, Cnx)
    '        Cmd.CommandType = Data.CommandType.Text
    '        Cmd.ExecuteNonQuery()
    '        dr = Cmd.ExecuteReader()
    '        If dr.Read() Then
    '            lblIdComisaria_Alta.Text = dr.Item("Descripcion")
    '        Else
    '            MsgBox("No puedo encontrar IdComisaria en tabla Comisarias" & vbCrLf, MsgBoxStyle.Critical, _
    '                   "Error proceso ObtenerIdComisaria - InfoDominio.aspx")
    '            LiberarRecursos()
    '            Exit Sub
    '        End If
    '    Catch ex As Exception
    '        MsgBox("No puedo abrir tabla Comisarias" & vbCrLf & ex.Message, MsgBoxStyle.Critical, _
    '               "Error proceso ObtenerIdComisaria - InfoDominio.aspx")
    '    Finally
    '    End Try
    '    LiberarRecursos()

    '    Cnx = New OracleConnection(oradb)
    '    Sql = "select * from Comisarias WHERE IdComisaria = '" & lblValorIdComisaria_Mod.Text & "'"
    '    Try
    '        Cnx.Open()
    '        Cmd = New OracleCommand(Sql, Cnx)
    '        Cmd.CommandType = Data.CommandType.Text
    '        Cmd.ExecuteNonQuery()
    '        dr = Cmd.ExecuteReader()
    '        If dr.Read() Then
    '            lblIdComisaria_Mod.Text = dr.Item("Descripcion")
    '        Else
    '            MsgBox("No puedo encontrar IdComisaria en tabla Comisarias" & vbCrLf, MsgBoxStyle.Critical, _
    '                   "Error proceso ObtenerIdComisaria - InfoDominio.aspx")
    '            LiberarRecursos()
    '            Exit Sub
    '        End If
    '    Catch ex As Exception
    '        MsgBox("No puedo abrir tabla TBL_Comisarias" & vbCrLf & ex.Message, MsgBoxStyle.Critical, _
    '               "Error proceso ObtenerIdComisaria - InfoDominio.aspx")
    '    Finally
    '    End Try
    '    LiberarRecursos()

    'End Sub

    'Protected Sub ObtenerIdUsuario()
    '    Cnx = New OracleConnection(oradb)
    '    Sql = "select * from Usuarios WHERE IdUsuario = '" & lblValorIdUsuario_Alta.Text & "'"
    '    Try
    '        Cnx.Open()
    '        Cmd = New OracleCommand(Sql, Cnx)
    '        Cmd.CommandType = Data.CommandType.Text
    '        Cmd.ExecuteNonQuery()
    '        dr = Cmd.ExecuteReader()
    '        If dr.Read() Then
    '            lblIdUsuario_Alta.Text = dr.Item("Nombre")
    '        Else
    '            MsgBox("No puedo encontrar IdUsuario en tabla Usuarios" & vbCrLf, MsgBoxStyle.Critical, _
    '                   "Error proceso ObtenerIdUsuario - InfoDominio.aspx")
    '            LiberarRecursos()
    '            Exit Sub
    '        End If
    '    Catch ex As Exception
    '        MsgBox("No puedo abrir tabla Usuarios" & vbCrLf & ex.Message, MsgBoxStyle.Critical, _
    '               "Error proceso ObtenerIdUsuario - InfoDominio.aspx")
    '    Finally
    '    End Try
    '    LiberarRecursos()

    '    Cnx = New OracleConnection(oradb)
    '    Sql = "select * from Usuarios WHERE IdUsuario = '" & lblValorIdUsuario_Mod.Text & "'"
    '    Try
    '        Cnx.Open()
    '        Cmd = New OracleCommand(Sql, Cnx)
    '        Cmd.CommandType = Data.CommandType.Text
    '        Cmd.ExecuteNonQuery()
    '        dr = Cmd.ExecuteReader()
    '        If dr.Read() Then
    '            lblIdUsuario_Mod.Text = dr.Item("Nombre")
    '        Else
    '            MsgBox("No puedo encontrar IdUsuario en tabla Usuarios" & vbCrLf, MsgBoxStyle.Critical, _
    '                   "Error proceso ObtenerIdUsuario - InfoDominio.aspx")
    '            LiberarRecursos()
    '            Exit Sub
    '        End If
    '    Catch ex As Exception
    '        MsgBox("No puedo abrir tabla Usuarios" & vbCrLf & ex.Message, MsgBoxStyle.Critical, _
    '               "Error proceso ObtenerIdUsuario - InfoDominio.aspx")
    '    Finally
    '    End Try
    '    LiberarRecursos()

    'End Sub

End Class
